home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Game / S / Slug A & B.cpt / Slug A / background_2627.txt next >
Text File  |  1989-04-19  |  4KB  |  159 lines
  1. -- background: 2627 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on Count
  8.   global ct
  9.   repeat with i=1 to ct
  10.     set the lockscreen to true
  11.     choose select tool
  12.     drag from (i-2)*3+4+(31*(i-1)+86),301 to ((i-2)*3+4+(31*(i-1)+86))+30,323
  13.     domenu "Invert"
  14.     set the lockscreen to false
  15.     set the lockscreen to true
  16.     choose select tool
  17.     drag from (i-2)*3+4+(31*(i-1)+86),301 to ((i-2)*3+4+(31*(i-1)+86))+30,323
  18.     domenu "Invert"
  19.     set the lockscreen to false
  20.     play "harpsichord"
  21.   end repeat
  22.   choose browse tool
  23. end Count
  24.  
  25. on ZERO
  26.   put empty into ien1
  27.   put empty into ien2
  28.   put empty into num
  29.   put empty into x
  30.   put empty into y
  31.   put empty into z
  32.   put empty into w
  33.   put empty into v
  34.   put empty into ss
  35.   put empty into rr
  36.   put empty into adjust
  37.   put empty into cheer
  38.   put empty into points
  39.   put empty into str
  40.   put empty into str2
  41.   put empty into punch
  42.   put empty into comb
  43.   put empty into spec1
  44.   put empty into t
  45.   put empty into u
  46.   put empty into string
  47.   put empty into kn1
  48.   put empty into kn2
  49.   put empty into ti
  50. end ZERO
  51.  
  52.  
  53.  
  54. on ENDBOUT
  55.   global winner,ko,f1,f2,first1,first2,rd,score1,score2,repeet
  56.   global loaded1,loaded2
  57.   put 0 into loaded1
  58.   put 0 into loaded2
  59.   put 0 into there
  60.   put empty into fs1
  61.   put empty into fs2
  62.   go to card "STATCARD"
  63.   repeat with i=1 to 20-length(f1)-length(first1)
  64.     put fs1&" " into fs1
  65.   end repeat
  66.   repeat with i=1 to 20-length(f2)-length(first2)
  67.     put fs2&" " into fs2
  68.   end repeat
  69.  
  70.   repeat with i=1 to the number of words of card field "Stats"
  71.     put word i of card field "Stats" into j
  72.     if j=f1
  73.     then
  74.     put word i+1 of card field "Stats" into w
  75.     put word i+3 of card field "Stats" into l
  76.     put word i+4 of card field "Stats" into ko2
  77.     if winner=f1 then
  78.       put w+1 into word I+1 of card field "Stats"
  79.     else
  80.       put l+1 into word i+3 of card field "Stats"
  81.     end if
  82.     if ko=f1 then put ko2+1 into word I+4 of card field "Stats"
  83.     put 1 into there
  84.     exit repeat
  85.   end if
  86. end repeat
  87.  
  88. if there<>1 then
  89.   put first1&&f1&fs1 after card field "Stats"
  90.   if winner=f1 then
  91.     put "1 - 0    " after card field "Stats"
  92.   else
  93.     put "0 - 1    " after card field "Stats"
  94.   end if
  95.   if ko=f1 then
  96.     put "1" after card field "Stats"
  97.   else
  98.     put "0" after card field "Stats"
  99.   end if
  100. end if
  101. put 0 into there
  102. put return after card field "Stats"
  103. put empty into i
  104. put empty into j
  105. put empty into w
  106. put empty into l
  107. put empty into ko2
  108. repeat with i=1 to the number of words of card field "Stats"
  109.   put word i of card field "Stats" into j
  110.   if j=f2
  111.   then
  112.   put word i+1 of card field "Stats" into w
  113.   put word i+3 of card field "Stats" into l
  114.   put word i+4 of card field "Stats" into ko2
  115.   if winner=f2 then
  116.     put w+1 into word I+1 of card field "Stats"
  117.   else
  118.     put l+1 into word i+3 of card field "Stats"
  119.   end if
  120.   if ko=f2 then put ko2+1 into word I+4 of card field "Stats"
  121.   put 1 into there
  122.   exit repeat
  123. end if
  124. end repeat
  125.  
  126. if there<>1 then
  127.   put first2&&f2&fs2 after card field "Stats"
  128.   if winner=f2 then
  129.     put "1 - 0    " after card field "Stats"
  130.   else
  131.     put "0 - 1    " after card field "Stats"
  132.   end if
  133.   if ko=f2 then
  134.     put "1" after card field "Stats"
  135.   else
  136.     put "0" after card field "Stats"
  137.   end if
  138. end if
  139.  
  140. put empty into i
  141. put empty into j
  142. put empty into w
  143. put empty into l
  144. put empty into ko2
  145.  
  146. put winner&&"won " into b
  147. if ko="none" then
  148.   if winner=f1 then
  149.     put score1&&"-"&&score2 into it
  150.   else
  151.     put score2&&"-"&&score1 into it
  152.   end if
  153.   put b&"by decision, "&it into b
  154. else
  155.   put b&"by knockout in round "&rd&"." into b
  156. end if
  157. put first1&&f1&&"vs."&&first2&&f2&return&"in a "&repeet&&"round bout."&RETURN&b into card field "LastFight"
  158. end ENDBOUT
  159.